home *** CD-ROM | disk | FTP | other *** search
/ Varios Español / Varios Español.iso / DBASE5 / CUA_SAMP.ZIP / CLI.DFM < prev    next >
Text File  |  1994-10-12  |  12KB  |  461 lines
  1. *......................................................
  2. * C:\DBASE\CUA_SAMP\CUST.DFM
  3. *   07/21/94  10:38:11
  4. *......................................................
  5.  
  6. *..............................................................
  7. * NO incluya ningún objeto Browse en este fichero.
  8. *
  9. * Deben inicializarse las variables de memoria de propiedades
  10. * en el fichero .PRG principal que aparece DESPUES de la sentencia
  11. * #include de este fichero.
  12. *..............................................................
  13.  
  14. *.............................................................
  15. * ADVERTENCIA: Utilice los caracteres ~~ para definir caracteres de
  16. * selección, ya que el carácter & puede producir sustituciones de
  17. * macro inesperadas.  Versiones futuras de dBASE para DOS no
  18. * admitirán la sustitución de macros definidas entre series de
  19. * caracteres delimitadas por comillas.
  20. *.............................................................
  21.  
  22. DEFINE FORM CUST ;
  23.    PROPERTY ;
  24.       HEIGHT           20,;
  25.       LEFT             4,;
  26.       ONCLOSE          CloseCust,;
  27.       ONGOTFOCUS       Repaint,;
  28.       ONOPEN           OpenCust,;
  29.       TEXT             "Ficha de cliente",;
  30.       TOP              1,;
  31.       WIDTH            72
  32.  
  33. CUST.ACTION              = .F.
  34. CUST.CLAYTYPE            = "L"           && Código para el tipo de formato de campos
  35. CUST.CLOSEDATA           = .F.           && Ejecuta un CLOSE DATABASE y luego abre los ficheros
  36. CUST.CURRMAST            = "CLI"         && Nombre del alias maestro de la ficha
  37. CUST.DISPMODE            = "VGA25"       && Modo de visualización por omisión
  38. CUST.MODALFORM           = .F.           && .T. ReadModal(), .F. Open()
  39. CUST.NFLDPLC             = 16            && Nº del último campo situado en la ficha
  40. CUST.NHEIGHT             = 20            && Altura por omisión de la ficha para el modo de visualización
  41. CUST.NLEFT               = 37            && Siguiente columna donde situar un objeto
  42. CUST.NOBJCTR             = 21            && Siguiente número para el nombre de objeto
  43. CUST.NTOP                = 34            && Siguiente fila donde situar un objeto
  44. CUST.SETDISP             = .T.           && .T. modifica el modo de visualización y .F. lo mantiene
  45. *...........................................................
  46.  
  47.  
  48.  
  49. *---------------------------------------------------------------------
  50. *-- Define la estructura del fichero. Esta técnica utiliza un objeto MenuBar
  51. *-- con opciones de menú para cada DBF que la ficha utiliza como lista vincu-
  52. *-- lada. El MenuBar está asociado a la ficha como propiedad personalizada.
  53. *-- Así la lista de ficheros no interfiere con otras variables de memoria.
  54. *---------------------------------------------------------------------
  55. DEFINE MENUBAR FileList
  56. CUST.FileList = FileList
  57. RELEASE FileList
  58.  
  59. *-----------------------------------------------------------------
  60. *-- Si ya está abierta la base de datos maestra, toma el número de registro,
  61. *-- cierra las bases de datos y vuelve a abrir sobre el número de registro.
  62. *-----------------------------------------------------------------
  63. SELECT 1
  64. PRIVATE nCUST , fCUST
  65. IF FileRoot( DBF() ) == 'CLI' .AND. .NOT. EOF()
  66.     nCUST = RECNO()
  67.     fCUST = SET( 'FILTER' )
  68. ELSE
  69.     nCUST = 0
  70.     fCUST = ''
  71. ENDIF
  72.  
  73. *--------------------------------------------------------------------
  74. *-- Asigna .F. a la propiedad .CloseData para evitar el mandato CLOSE
  75. *-- DATABASE. Esto implica que debe asegurarse que los ficheros que abre
  76. *-- este .DFM no están ya abiertos.
  77. *--------------------------------------------------------------------
  78. IF TYPE('CUST.CloseData') = 'L' .AND. CUST.CloseData
  79.     CLOSE DATABASE
  80. ELSE
  81.     IF TYPE('CUST.CloseData') # 'L'
  82.         CLOSE DATABASE
  83.     ELSE
  84.         SELECT SELECT()
  85.     ENDIF
  86. ENDIF
  87.  
  88. USE CLI.DBF ALIAS CLI
  89. IF nCUST > 0
  90.     GO nCUST
  91.     IF .NOT. ISBLANK( fCUST )
  92.         SET FILTER TO &fCUST
  93.     ENDIF
  94. ENDIF
  95.  
  96. *------------------------------------------------------
  97. *-- Define el menú que representa la base de datos maestra
  98. *------------------------------------------------------
  99. DEFINE MENU File1 OF CUST.FileList;
  100.     PROPERTY ;
  101.         Text        DBF() ,;
  102.         StatusMessage   [Maestro];
  103.     CUSTOM ;
  104.         FileAlias   ALIAS() ,;
  105.         ErrorDBF    .F.
  106.  
  107. DEFINE RECTANGLE RCNAME13 OF M->CUST;
  108.    PROPERTY ;
  109.       HEIGHT           9,;
  110.       LEFT             2,;
  111.       TOP              0,;
  112.       WIDTH            65
  113.  
  114. CUST.RCNAME13.BorderStyle         = 2
  115.  
  116.  
  117. DEFINE RECTANGLE RCNAME15 OF M->CUST;
  118.    PROPERTY ;
  119.       HEIGHT           6,;
  120.       LEFT             2,;
  121.       TOP              9,;
  122.       WIDTH            65
  123.  
  124. CUST.RCNAME15.BorderStyle         = 2
  125.  
  126.  
  127. DEFINE ENTRYFIELD CUST_ID001 OF M->CUST;
  128.    PROPERTY ;
  129.       DATALINK         "CLI->COD_CLI",;
  130.       LEFT             16,;
  131.       PICTURE          "XXXXXX",;
  132.       STATUSMESSAGE    "Introduzca un número de cliente correcto:",;
  133.       TOP              1,;
  134.       VALID            UniqKey,;
  135.       VALIDERRORMSG    "Introduzca un valor que no exista ya en el fichero.",;
  136.       WIDTH            6
  137.  
  138. CUST.CUST_ID001.KEYTAG          = "COD_CLI"
  139.  
  140.  
  141. *--------------------------------------------
  142. *-- Define la rutina Valid para la clave primaria
  143. *--------------------------------------------
  144. CUST.CUST_ID001.Valid = "UniqKey"
  145.  
  146. DEFINE ENTRYFIELD CUSTOME003 OF M->CUST;
  147.    PROPERTY ;
  148.       DATALINK         "CLI->CLIENTE",;
  149.       LEFT             16,;
  150.       PICTURE          "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",;
  151.       TOP              2,;
  152.       WIDTH            30
  153.  
  154.  
  155.  
  156. DEFINE ENTRYFIELD ADDRESS004 OF M->CUST;
  157.    PROPERTY ;
  158.       DATALINK         "CLI->DIRECCION1",;
  159.       LEFT             16,;
  160.       PICTURE          "XXXXXXXXXXXXXXXXXXXXXXXXX",;
  161.       TOP              3,;
  162.       WIDTH            25
  163.  
  164.  
  165.  
  166. DEFINE ENTRYFIELD ADDRESS005 OF M->CUST;
  167.    PROPERTY ;
  168.       DATALINK         "CLI->DIRECCION2",;
  169.       LEFT             16,;
  170.       PICTURE          "XXXXXXXXXXXXXXXXXXXX",;
  171.       TOP              4,;
  172.       WIDTH            20
  173.  
  174.  
  175.  
  176. DEFINE ENTRYFIELD CITY006 OF M->CUST;
  177.    PROPERTY ;
  178.       DATALINK         "CLI->CIUDAD",;
  179.       LEFT             16,;
  180.       PICTURE          "XXXXXXXXXXXXXXXXXXXX",;
  181.       TOP              5,;
  182.       WIDTH            20
  183.  
  184.  
  185.  
  186. DEFINE ENTRYFIELD STATE007 OF M->CUST;
  187.    PROPERTY ;
  188.       DATALINK         "CLI->PROVINCIA",;
  189.       LEFT             43,;
  190.       PICTURE          "!!",;
  191.       TOP              5,;
  192.       WIDTH            2
  193.  
  194.  
  195.  
  196. DEFINE ENTRYFIELD ZIP008 OF M->CUST;
  197.    PROPERTY ;
  198.       DATALINK         "CLI->COD_POST",;
  199.       LEFT             52,;
  200.       PICTURE          "XXXXXXXXXX",;
  201.       TOP              5,;
  202.       WIDTH            10
  203.  
  204.  
  205.  
  206. DEFINE ENTRYFIELD PHONE009 OF M->CUST;
  207.    PROPERTY ;
  208.       DATALINK         "CLI->TELEFONO",;
  209.       LEFT             16,;
  210.       PICTURE          "(999)999-9999",;
  211.       TOP              6
  212.  
  213.  
  214.  
  215. DEFINE COMBOBOX CMNAME16 OF M->CUST;
  216.    PROPERTY ;
  217.       DATALINK         "CATEGORIA",;
  218.       DATASOURCE       "STRING ARQUITECTOS, CONSULTORES, ABOGADOS, CONTRATISTAS",;
  219.       LEFT             16,;
  220.       TOP              7
  221.  
  222.  
  223.  
  224. DEFINE ENTRYFIELD CONTACT012 OF M->CUST;
  225.    PROPERTY ;
  226.       DATALINK         "CLI->CONTACTO",;
  227.       LEFT             16,;
  228.       PICTURE          "XXXXXXXXXXXXXXXXXXXX",;
  229.       TOP              10,;
  230.       WIDTH            20
  231.  
  232.  
  233.  
  234. DEFINE ENTRYFIELD PHONE_C013 OF M->CUST;
  235.    PROPERTY ;
  236.       DATALINK         "CLI->TEL_CONT",;
  237.       LEFT             16,;
  238.       PICTURE          "(999)999-9999",;
  239.       TOP              11
  240.  
  241.  
  242.  
  243. DEFINE ENTRYFIELD PHONE_E014 OF M->CUST;
  244.    PROPERTY ;
  245.       DATALINK         "CLI->EXT_TEL",;
  246.       LEFT             43,;
  247.       PICTURE          "XXXX",;
  248.       TOP              11,;
  249.       WIDTH            4
  250.  
  251.  
  252.  
  253. DEFINE ENTRYFIELD COMMENT011 OF M->CUST;
  254.    PROPERTY ;
  255.       DATALINK         "CLI->COMENTARIO",;
  256.       LEFT             16,;
  257.       TOP              13,;
  258.       WIDTH            20
  259.  
  260.  
  261.  
  262. DEFINE PUSHBUTTON PBNAME8 OF M->CUST;
  263.    PROPERTY ;
  264.       LEFT             0,;
  265.       ONCLICK          Add_new,;
  266.       TEXT             "&Añadir",;
  267.       TOP              16,;
  268.       WIDTH            10
  269.  
  270.  
  271.  
  272. DEFINE PUSHBUTTON PBNAME7 OF M->CUST;
  273.    PROPERTY ;
  274.       LEFT             10,;
  275.       ONCLICK          DelIt,;
  276.       TEXT             "&Eliminar",;
  277.       TOP              16,;
  278.       WIDTH            12
  279.  
  280.  
  281.  
  282. DEFINE PUSHBUTTON PBNAME18 OF M->CUST;
  283.    PROPERTY ;
  284.       LEFT             22,;
  285.       ONCLICK          SkipHand,;
  286.       TEXT             "&Siguiente",;
  287.       TOP              16,;
  288.       WIDTH            13
  289.  
  290. CUST.PBNAME18.Procfile            = "SKIPHAND.PRG"
  291.  
  292.  
  293. DEFINE PUSHBUTTON PBNAME19 OF M->CUST;
  294.    PROPERTY ;
  295.       LEFT             35,;
  296.       ONCLICK          PrevHand,;
  297.       TEXT             "A&nterior",;
  298.       TOP              16,;
  299.       WIDTH            12
  300.  
  301. CUST.PBNAME19.Procfile            = "PREVHAND.PRG"
  302.  
  303.  
  304. DEFINE PUSHBUTTON PBNAME5 OF M->CUST;
  305.    PROPERTY ;
  306.       LEFT             47,;
  307.       ONCLICK          PrintForm,;
  308.       TEXT             "&Imprimir",;
  309.       TOP              16,;
  310.       WIDTH            12
  311.  
  312.  
  313.  
  314. DEFINE PUSHBUTTON PBNAME6 OF M->CUST;
  315.    PROPERTY ;
  316.       LEFT             59,;
  317.       ONCLICK          CloseMe,;
  318.       TEXT             "Sa&lir",;
  319.       TOP              16,;
  320.       WIDTH            10
  321.  
  322.  
  323.  
  324. DEFINE COMBOBOX CMNAME17 OF M->CUST;
  325.    PROPERTY ;
  326.       DATALINK         "F_PAGO",;
  327.       DATASOURCE       "STRING CAJA,NETO 15,NETO 30,NETO 45",;
  328.       LEFT             16,;
  329.       TOP              12,;
  330.       WIDTH            13
  331.  
  332.  
  333.  
  334. DEFINE TEXT CFDNAME1 OF M->CUST;
  335.    PROPERTY ;
  336.       LEFT             5,;
  337.       TEXT             "CLIENTE Nº:",;
  338.       TOP              1,;
  339.       WIDTH            11
  340.  
  341.  
  342.  
  343. DEFINE TEXT CFDNAME2 OF M->CUST;
  344.    PROPERTY ;
  345.       LEFT             5,;
  346.       TEXT             "CATEGORIA:",;
  347.       TOP              7,;
  348.       WIDTH            10
  349.  
  350.  
  351.  
  352. DEFINE TEXT CFDNAME3 OF M->CUST;
  353.    PROPERTY ;
  354.       LEFT             5,;
  355.       TEXT             "NOMBRE:",;
  356.       TOP              2,;
  357.       WIDTH            8
  358.  
  359.  
  360.  
  361. DEFINE TEXT CFDNAME4 OF M->CUST;
  362.    PROPERTY ;
  363.       LEFT             5,;
  364.       TEXT             "DIRECCION:",;
  365.       TOP              3,;
  366.       WIDTH            10
  367.  
  368.  
  369.  
  370. DEFINE TEXT CFDNAME6 OF M->CUST;
  371.    PROPERTY ;
  372.       LEFT             5,;
  373.       TEXT             "CIUDAD:",;
  374.       TOP              5,;
  375.       WIDTH            7
  376.  
  377.  
  378.  
  379. DEFINE TEXT CFDNAME7 OF M->CUST;
  380.    PROPERTY ;
  381.       LEFT             37,;
  382.       TEXT             "PROV.",;
  383.       TOP              5,;
  384.       WIDTH            5
  385.  
  386.  
  387.  
  388. DEFINE TEXT CFDNAME8 OF M->CUST;
  389.    PROPERTY ;
  390.       LEFT             47,;
  391.       TEXT             "C.P.",;
  392.       TOP              5,;
  393.       WIDTH            4
  394.  
  395.  
  396.  
  397. DEFINE TEXT CFDNAME9 OF M->CUST;
  398.    PROPERTY ;
  399.       LEFT             5,;
  400.       TEXT             "TELEFONO:",;
  401.       TOP              6,;
  402.       WIDTH            9
  403.  
  404.  
  405.  
  406. DEFINE TEXT CFDNAME10 OF M->CUST;
  407.    PROPERTY ;
  408.       LEFT             5,;
  409.       TEXT             "F.PAGO:",;
  410.       TOP              12,;
  411.       WIDTH            7
  412.  
  413.  
  414.  
  415. DEFINE TEXT CFDNAME11 OF M->CUST;
  416.    PROPERTY ;
  417.       LEFT             5,;
  418.       TEXT             "COMENTARIO:",;
  419.       TOP              13,;
  420.       WIDTH            11
  421.  
  422.  
  423.  
  424. DEFINE TEXT CFDNAME12 OF M->CUST;
  425.    PROPERTY ;
  426.       LEFT             5,;
  427.       TEXT             "CONTACTO:",;
  428.       TOP              10,;
  429.       WIDTH            9
  430.  
  431.  
  432.  
  433. DEFINE TEXT CFDNAME13 OF M->CUST;
  434.    PROPERTY ;
  435.       LEFT             5,;
  436.       TEXT             "TELEFONO:",;
  437.       TOP              11,;
  438.       WIDTH            9
  439.  
  440.  
  441.  
  442. DEFINE TEXT CFDNAME14 OF M->CUST;
  443.    PROPERTY ;
  444.       LEFT             32,;
  445.       TEXT             "EXTENSION:",;
  446.       TOP              11,;
  447.       WIDTH            10
  448.  
  449.  
  450.  
  451. DEFINE TEXT TXNAME20 OF M->CUST;
  452.    PROPERTY ;
  453.       LEFT             53,;
  454.       TEXT             "",;
  455.       TOP              1,;
  456.       WIDTH            10
  457.  
  458. CUST.TXNAME20.ColorNormal         = "R/W"
  459.  
  460.  
  461.